home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / accs / grafstar / listings / mausform.lst < prev    next >
Encoding:
File List  |  1989-06-20  |  1.6 KB  |  43 lines
  1. '
  2. ' MAUSFORM.LST
  3. '
  4. ' Dieses kleine Programm kann eine als Mauscursor gespeicherte Grafik laden
  5. ' und als Mausform darstellen. Wie Sie eine Grafik als Mauscursor speichern
  6. ' können, sehen Sie in der Anleitung unter "5.3 Disk / Speichern als: ...
  7. ' Mauscursor".
  8. '
  9. '                                       Ihr Alexander Stork
  10. '                                                   (Autor)
  11. '
  12. Do
  13.   '
  14.   Fileselect "\*.CUR","MAUSFORM.CUR",Erg$       !File aussuchen
  15.   '
  16.   Exit If Erg$=""                               !Abbruch? - dann 'raus
  17.   '
  18.   Clr Maus$                                     !String löschen
  19.   Open "I",#1,Erg$                              !File öffnen
  20.   L%=Lof(#1)                                    !Länge ermitteln
  21.   '
  22.   If L%=74                                      !Darf nur 74 Bytes lang sein
  23.     Maus$=Space$(L%)                            !String vorbereiten
  24.     Bget #1,Varptr(Maus$),L%                    !Datei in String laden
  25.   Else
  26.     Alert 3,"Kein Maus-File!",1,"ABBRUCH",Erg%  !-> kein "*.CUR"-File
  27.   Endif
  28.   '
  29.   Close                                         !File wieder schließen
  30.   '
  31.   If Len(Maus$)                                 !Enthält 'Maus$' Daten?
  32.     Defmouse Maus$                              !Mausform definieren
  33.     '
  34.     Repeat                                      !Schleife:
  35.       Mouse X%,Y%,K%                            !Mauskoordinaten ermitteln
  36.       If K%=1                                   !Wenn linke Taste gedrückt ...
  37.         Draw  To X%,Y%                          !dann malen
  38.       Endif
  39.     Until K%=2                                  !Rechte Maustaste = Ende
  40.   Endif
  41.   '
  42. Loop
  43.